home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / U-User Group / (k)u4.d64 / str$.proc < prev    next >
Text File  |  2007-02-28  |  754b  |  35 lines
  1. 9000 DIM STRNUM$ OF 5
  2. 9010 INPUT "NUMBER: ": NUM
  3. 9020 STRING(NUM,STRNUM$)
  4. 9030 PRINT STRNUM$
  5. 9040 //
  6. 9050 PROC STRING(NUM,REF REPLY$) CLOSED
  7. 9060 DIM Z$ OF 1, ANS$ OF 8
  8. 9070 NUM:=NUM+5E-03 //ROUNDED
  9. 9080 Y#:=10000
  10. 9090 FOR J:=5 TO 1 STEP -1 DO
  11. 9100 X#:=INT(NUM/Y#)
  12. 9110 Z$:=CHR$(X#+48)
  13. 9120 IF Z$<>"0" OR ANS$<>"" THEN ANS$:=ANS$+Z$
  14. 9130 NUM:=NUM-X#*Y#
  15. 9140 Y#:=Y#/10
  16. 9150 ENDFOR J
  17. 9160 IF ANS$="" THEN ANS$:="0"
  18. 9170 ANS$:=ANS$+"."
  19. 9180 X#:=INT(NUM*10)
  20. 9190 Z$:=CHR$(X#+48)
  21. 9200 ANS$:=ANS$+Z$
  22. 9210 NUM:=NUM-X#/10
  23. 9220 X#:=INT(NUM*100)
  24. 9230 Z$:=CHR$(X#+48)
  25. 9240 ANS$:=ANS$+Z$
  26. 9250 L:=LEN(ANS$)
  27. 9260 IF ANS$(L)="0" THEN
  28. 9270 ANS$:=ANS$(1:L-1)
  29. 9280 IF ANS$(L-1)="0" THEN
  30. 9290 ANS$:=ANS$(1:L-3)
  31. 9300 ENDIF 
  32. 9310 ENDIF 
  33. 9320 REPLY$:=ANS$
  34. 9330 ENDPROC STRING
  35.